home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00007_Blender jug mask behavior.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  685 b   |  32 lines
  1. property pSpr, pMaskMember, pMaskedMember, pMaskStart, pMaskEnd
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pMaskedMember = pSpr.member
  6.   pMaskMember = nextMember(pSpr.member)
  7.   pMaskStart = pSpr.locV - pSpr.rect.bottom
  8.   pMaskEnd = pSpr.locV - pSpr.rect.top
  9.   mEmptyGlass(me)
  10. end
  11.  
  12. on mRemoveDrink me
  13.   mHideDrink(me)
  14.   mEmptyGlass(me)
  15. end
  16.  
  17. on mHideDrink me
  18.   pSpr.visible = 0
  19. end
  20.  
  21. on mEmptyGlass me
  22.   pMaskMember.regPoint = point(pMaskMember.regPoint.locH, pMaskStart)
  23. end
  24.  
  25. on mUpdateLiquidLevel me, masterSprite
  26.   mFillLiquor(me, VOID, masterSprite)
  27. end
  28.  
  29. on mFillLiquor me, liquidColor, masterSprite
  30.   return fillIt(pSpr, liquidColor, pMaskMember, pMaskEnd, masterSprite)
  31. end
  32.